home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_89-11_1989_-_de_Side_B.d64
/
sp.scroll up
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
41 lines
0 plot = 49152 : line = pl+3 : clear = pl+6 : recht = pl+9
1 setup = pl+12 : show = pl+15 : mem = pl+18 : ellipse = pl+21
2 test = pl+24 : invert = pl+27 : speich = pl+30 : left = pl+33
3 right = pl+36 : hard = pl+39 : up = pl+42 : down = pl+45
4 write = pl+48 : zmem = pl+51 : copy = pl+54 : w2 = pl+57
5 ssetup = pl+60 : charset = pl+63 : laden = pl+66
10 poke53281,0:poke53280,0:poke646,7
12 h=peek(53248+17):poke53248+17,0
15 b$=" ":b$=b$+b$
20 sys zmem,53248,0,1
21 print"[147]";:t=8
22 fori=0to8:poke646,i+5:printtab(t)b$:next
30 sys se,88,106:sys ss,1,1
32 b1=32:b2=40
34 sys me,b1,b2:sysclear:sys in
35 sys sh,1,1,0,1,0
36 sys me,b2,b1:sysclear:sys in
38 poke53248+17,h
40 x=0:y=41:a=0:b=7:c=8
42 read an
50 for d=1toan:read a$
60 for i=atob
70 sys ch,c,i+1,i,a:sys wr,x,y,a$
85 sys up:sys mem,b1,b2:sys co,b2,b1,8
90 h=b1:b1=b2:b2=h
100 next
105 next
107 restore:goto42
115 data 10:rem anzahl zeilen
120 data " scrolling "
121 data "------------"
122 data " "
123 data "written by: "
124 data " "
125 data " a.gessler "
126 data " "
127 data " "
128 data " "
129 data " "
130 data " "